home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / Apps / ScreenSavers / BackSpaceViews / StarShipView.BackModule / spaceFuncts.psw < prev    next >
Encoding:
Text File  |  1995-06-12  |  434 b   |  21 lines
  1. defineps loadSpaceProcedures()
  2. /DSS {%
  3. setlinewidth setgray
  4. moveto lineto lineto lineto lineto stroke
  5. setlinewidth
  6. }bind def
  7.  
  8. /DSL {%
  9. setrgbcolor newpath arc closepath fill newpath arc closepath fill
  10. }bind def
  11. endps
  12.  
  13. defineps PSscreenBorder(float x,y,w,h,y2,linew,color)
  14. 0.0 x y2 x h w h w y x y color linew DSS
  15. endps
  16.  
  17. defineps PSscreenLights(float xleft,xright,y,r,g,b) 
  18. xleft y 2.0 0.0 360.0 
  19. xright y 2.0 0.0 360.0 r g b DSL
  20. endps
  21.